home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / FORTRAN / 3017.ZIP / RAN.FOR < prev    next >
Text File  |  1988-09-16  |  437b  |  25 lines
  1. $STORAGE:2
  2.       FUNCTION RAN(ISEED)
  3. C
  4. C     D. HATZIPAPAFOTIOU
  5. C     PC VERSION  --  9/15/88
  6. C
  7. C    THE VAX/VMS RAN ROUTINE
  8. C
  9. C    ISEED  -- INPUT/OUTPUT SEED
  10. C    RAN -- OUTPUT RANDOM NUMBER (0,1)
  11. C
  12.       EXTERNAL SDRAN
  13.       INTEGER*4 ISEED
  14. C
  15.       CALL SDRAN(ISEED)
  16.       IF(ISEED.LT.0)THEN
  17.         RAN=1.0+ISEED*0.23283064E-9
  18.       ELSE
  19.         RAN=ISEED*0.23283064E-9
  20.       ENDIF
  21. C
  22.       RETURN
  23.       END
  24.  
  25.